/*Cursor Invisivel

Podemos alterar a forma que o cursor terá quando estiver sobre determinado componente através da propriedade Cursor no Object Inspector ou em tempo de execução através do código.

Em certas ocasiões, pode ser conveniente fazer o ponteiro do cursor desaparecer quando estiver sobre o componente. O código abaixo faz isso:*/

void __fastcall TForm1::Label1MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
// cursor invisível
Sleep(600); // o ponteiro aguardará um pouco para desaparecer ou reaparecer
Screen->Cursor = crNone;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
// cursor visível
Screen->Cursor = crDefault;
}